home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO107.dsk / HST.INTRO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  25KB  |  558 lines

  1. 10  REM     INTRODUCTION TO THE Hubble Space Telescope
  2. 20  REM    Written with the support of the
  3. 30  REM    NASA - Goddard Space Flight Center Office of Public Affairs.
  4. 40  REM    
  5. 50  REM  
  6. 60 :
  7. 1005  REM    VARIABLES
  8. 1010  GOSUB 32200
  9. 1015  GOSUB 32200
  10. 2010  PRINT  CHR$(17)
  11. 2014 D$ =  CHR$(4)
  12. 2015  DIM M$(10)
  13. 2020 I = 0
  14. 2030 M$(I) = "Program Directions":I = I +1
  15. 2035 M$(I) = "Introduction to the Telescope":I = I +1
  16. 2037 M$(I) = "Construction":I = I +1
  17. 2040 M$(I) = "Instruments and Applications":I = I +1
  18. 2050 M$(I) = "Imaging":I = I +1
  19. 2055 M$(I) = "Communications":I = I +1
  20. 2067 M$(I) = "Quit"
  21. 2080  PRINT D$;"BLOAD UNPACKER,A2048"
  22. 3200 :
  23. 4000 :
  24. 4005  REM    MAIN MENU
  25. 4010 :
  26. 4015  HGR : HOME 
  27. 4030 PIC$ = "PATCH": GOSUB 32020
  28. 4095  GOSUB 31020
  29. 4100  TEXT : HOME 
  30. 4105  VTAB 3: PRINT "The HUBBLE SPACE TELESCOPE will..."
  31. 4110  VTAB 6: PRINT  TAB( 4);"* orbit Earth at 600 KM (375 miles)."
  32. 4115  PRINT : PRINT  TAB( 4);"* have a clear view of the Universe."
  33. 4120  PRINT : PRINT  TAB( 4);;"* be able to collect data almost          continuously."
  34. 4125  PRINT : PRINT  TAB( 4);"* detect visible & invisible energy."
  35. 4130  PRINT : PRINT  TAB( 4);"* be launched by the Space Shuttle."
  36. 4135  PRINT : PRINT  TAB( 4);"* be operated by NASA through the         Goddard Space Flight Center."
  37. 4140  GOSUB 31025
  38. 4145  HOME : PRINT : PRINT "This program will introduce you"
  39. 4150  PRINT : PRINT "to the..."
  40. 4155  PRINT : PRINT : PRINT  TAB( 9);"STRUCTURE,"
  41. 4160  PRINT : PRINT : PRINT  TAB( 12);"ADVANTAGES"
  42. 4162  PRINT : PRINT : PRINT  TAB( 15);"and"
  43. 4165  PRINT : PRINT : PRINT  TAB( 18);"CAPABILITIES"
  44. 4180  PRINT : PRINT : PRINT "   of the Hubble Space Telescope."
  45. 4190  GOSUB 31025
  46. 4200  POKE  -16303,0: HOME :T$ = "-- MENU --": GOSUB 31105
  47. 4210  VTAB 6: FOR I = 0 TO 6: HTAB 4: INVERSE : PRINT I;: NORMAL : PRINT  SPC( 2);M$(I): PRINT : NEXT I
  48. 4220  VTAB 23: HTAB 5: INVERSE : PRINT "ENTER THE NUMBER OF YOUR CHOICE";: NORMAL 
  49. 4225  GET N$
  50. 4230 G =  VAL(N$) +1: IF  ASC(N$) <48  OR  ASC(N$) >57 GOTO 4220
  51. 4240  ON G GOSUB 40000,7000,10000,13000,19000,22000,44000
  52. 4299  GOTO 4200
  53. 7000 :
  54. 7005  REM   INTRODUCTION TO THE ST
  55. 7010 :
  56. 7020  HGR :PIC$ = "HST": GOSUB 32000
  57. 7040  HOME : VTAB 23: PRINT "This is how the Hubble Space Telescope"
  58. 7050  PRINT "will appear as it orbits the earth."
  59. 7060  PRINT "The telescope will allow astronomers"
  60. 7070  PRINT "to study vast areas of the universe.";: GOSUB 31310
  61. 7072  HOME : VTAB 23: PRINT "The cylinder contains the telescope,"
  62. 7074  PRINT "scientific instruments and": PRINT "support equipment.": GOSUB 31310
  63. 7076  HOME : VTAB 23: PRINT "The door at the end of the cylinder"
  64. 7078  PRINT "is shown open for observing."
  65. 7080  PRINT "The door can be closed for protection"
  66. 7082  PRINT "against bright objects like the Sun.";: GOSUB 31310
  67. 7084  HOME : VTAB 23: PRINT "There are two antennas for"
  68. 7086  PRINT "communication and two solar": PRINT "arrays for electrical energy.": GOSUB 31310
  69. 7088  HOME : VTAB 23: PRINT "Some major advantages of a telescope"
  70. 7089  PRINT "in space are that it will not"
  71. 7090  PRINT "have to see through the atmosphere"
  72. 7091  PRINT "nor contend with poor weather.";: GOSUB 31310
  73. 7095  HGR :PIC$ = "SEECELLS": GOSUB 32000: GOSUB 31350
  74. 7096  PRINT "A viewer on Earth must view the sky"
  75. 7097  PRINT "through the atmosphere. Light passing"
  76. 7098  PRINT "through the atmosphere undergoes change"
  77. 7099  PRINT "caused by varying conditions.";: GOSUB 31310
  78. 7100  GOSUB 31350: PRINT "These conditions include temperature,"
  79. 7101  PRINT "air pressure and dust.  'Cells' are"
  80. 7102  PRINT "created, each of which changes, or"
  81. 7103  PRINT "refracts, the light differently.";: GOSUB 31310: GOSUB 31350
  82. 7104  PRINT "The Hubble Space Telescope has the"
  83. 7105  PRINT "advantage of being above the atmosphere"
  84. 7106  PRINT "where a clear view of the sky is"
  85. 7107  PRINT "possible.";: GOSUB 31310
  86. 7120  HGR :PIC$ = "LIGHTC": GOSUB 32000
  87. 7130  HOME : VTAB 23
  88. 7140  PRINT "The telescope works by using a series"
  89. 7150  PRINT "of mirrors to direct light into six"
  90. 7160  PRINT "instruments at the focal plane.": GOSUB 31310
  91. 7170  HOME : VTAB 23
  92. 7180  PRINT "The instruments can make images"
  93. 7190  PRINT "of objects in the universe or"
  94. 7200  PRINT "analyze the energy which these"
  95. 7205  PRINT "objects emit.";: GOSUB 31310
  96. 7210  HOME : VTAB 23
  97. 7220  PRINT "The HST will be capable of seeing"
  98. 7230  PRINT "objects up to 15 billion light"
  99. 7240  PRINT "years away! One light year is"
  100. 7244  PRINT "about 6 TRILLION miles.";: GOSUB 31310
  101. 7250  HOME : VTAB 23
  102. 7260  PRINT "Space Telescope may even detect"
  103. 7270  PRINT "planets around nearby stars."
  104. 7280  PRINT "Is it possible that some of these"
  105. 7290  PRINT "support life?????";: GOSUB 31310
  106. 8500  HOME : VTAB 23
  107. 8510  PRINT "Learn all you can about the"
  108. 8520  PRINT "Hubble Space Telescope."
  109. 8530  PRINT "Soon it will open its"
  110. 8540  PRINT "EYE ON THE UNIVERSE!";: GOSUB 31310
  111. 9999  RETURN 
  112. 10000 :
  113. 10005  REM    CONSTRUCTION
  114. 10010 :
  115. 10015  HGR :PIC$ = "HST": GOSUB 32000
  116. 10020  GOSUB 31350
  117. 10030  PRINT "The Hubble Space Telescope is 13.1 m"
  118. 10040  PRINT "(43.5 ft.) long and 4.27 m (14 ft.) in"
  119. 10050  PRINT "diameter. Launch weight is about"
  120. 10060  PRINT "11,000 kilograms (25,500 lbs.).";: GOSUB 31310
  121. 10062  GOSUB 31350: PRINT "It is about as large as"
  122. 10064  PRINT "a school bus!": GOSUB 31310
  123. 10070  HGR :PIC$ = "EV.1": GOSUB 32000: GOSUB 31350
  124. 10080  PRINT "Four scientific instruments are located"
  125. 10090  PRINT "about the center of the light path. The"
  126. 10100  PRINT "instruments are each located within a"
  127. 10110  PRINT "separate module which allows removal.";: GOSUB 31310
  128. 10112  GOSUB 31350: PRINT "Since the instruments are removable,"
  129. 10114  PRINT "repair or replacement is possible"
  130. 10116  PRINT "while the telescope is in orbit.": GOSUB 31310
  131. 10120  GOSUB 31350: PRINT "The 4 axial instruments are: the HIGH"
  132. 10130  PRINT "RESOLUTION SPECTROGRAPH, the FAINT"
  133. 10140  PRINT "OBJECT SPECTROGRAPH, the FAINT OBJECT"
  134. 10150  PRINT "CAMERA and the HIGH SPEED PHOTOMETER.";: GOSUB 31310
  135. 10160  GOSUB 31350: PRINT "Three FINE GUIDANCE SENSORS are located"
  136. 10170  PRINT "at right angles to the lightpath. These"
  137. 10180  PRINT "sensors input data which aid in"
  138. 10190  PRINT "pointing the telescope.";: GOSUB 31310
  139. 10200  GOSUB 31350: PRINT "One radial instrument, the WIDEFIELD/"
  140. 10210  PRINT "PLANETARY CAMERA, is located at a right"
  141. 10220  PRINT "angle to the path of incoming light.";: GOSUB 31310
  142. 10230  GOSUB 31350: PRINT "The AFT SHROUD encloses the SCIENTIFIC"
  143. 10240  PRINT "INSTRUMENTS, FINE GUIDANCE SENSORS"
  144. 10245  PRINT "and the PRIMARY MIRROR.";: GOSUB 31310
  145. 10250  HGR :PIC$ = "EV.2": GOSUB 32000
  146. 10260  GOSUB 31350: PRINT "The OPTICAL TELESCOPE ASSEMBLY includes"
  147. 10270  PRINT "the primary mirror and main ring, the"
  148. 10280  PRINT "main light baffle, the metering truss"
  149. 10290  PRINT "and the secondary mirror assembly.";: GOSUB 31310
  150. 10300  GOSUB 31350: PRINT "The METERING TRUSS is constructed of"
  151. 10310  PRINT "graphite epoxy which expands or"
  152. 10320  PRINT "contracts only slightly when subjected"
  153. 10330  PRINT "to extreme temperatures.";: GOSUB 31310
  154. 10340  GOSUB 31350: PRINT "This allows the metering truss to"
  155. 10350  PRINT "keep the distance between the PRIMARY"
  156. 10360  PRINT "and SECONDARY MIRRORS stable.  This"
  157. 10370  PRINT "keeps the telescope in focus.";: GOSUB 31310
  158. 10400  HGR :PIC$ = "EV.3": GOSUB 32000
  159. 10410  HOME : VTAB 23: PRINT "A SUPPORT SYSTEMS MODULE (SSM) provides"
  160. 10420  PRINT "the spacecraft with power,"
  161. 10430  PRINT "communications, pointing and control,"
  162. 10440  PRINT "and thermal protection.";: GOSUB 31310
  163. 10450  HOME : VTAB 23: PRINT "The SSM EQUIPMENT SECTION is made of"
  164. 10460  PRINT "ten compartments which house electronic"
  165. 10470  PRINT "and control modules. Most compartments"
  166. 10480  PRINT "have doors for access by astronauts.";: GOSUB 31310
  167. 10490  HOME : VTAB 23: PRINT "The SSM Equipment Section also contains"
  168. 10500  PRINT "the REACTION WHEEL ASSEMBLIES which are"
  169. 10510  PRINT "used for pointing and stabilizing"
  170. 10520  PRINT "the spacecraft.";: GOSUB 31310
  171. 10530  HOME : VTAB 23: PRINT "The HIGH GAIN ANTENNAS are used in the"
  172. 10540  PRINT "transmission of data to the TRACKING"
  173. 10550  PRINT "and DATA RELAY SATELLITE(S) (TDRS) for"
  174. 10560  PRINT "relay to ground stations.";: GOSUB 31310
  175. 10620  HOME : VTAB 23: PRINT "The APERTURE DOOR shields the telescope"
  176. 10630  PRINT "from the Sun, Earth, and Moon so"
  177. 10640  PRINT "the scientific instruments are not"
  178. 10650  PRINT "damaged by a flood of light.";: GOSUB 31310
  179. 10670  HOME : VTAB 23: PRINT "While in operation, the telescope will"
  180. 10680  PRINT "not be turned within 50 degrees of the"
  181. 10690  PRINT "Sun.  As a result of this precaution,"
  182. 10700  PRINT "the planet Mercury cannot be observed.";: GOSUB 31310
  183. 10710  HOME : VTAB 23: PRINT "The SOLAR ARRAYS provide an average of"
  184. 10720  PRINT "2400 watts of electrical power to the"
  185. 10730  PRINT "spacecraft and for energy storage by"
  186. 10740  PRINT "the onboard batteries.";: GOSUB 31310
  187. 10750  HOME : VTAB 23: PRINT "The arrays are made of solar cells"
  188. 10760  PRINT "attached to one side of thin plastic"
  189. 10770  PRINT "material which allows the array to be"
  190. 10780  PRINT "stored like a window shade.";: GOSUB 31310
  191. 12999  RETURN 
  192. 13000 :
  193. 13005  REM    INSTRUMENTS
  194. 13010 :
  195. 13015  HOME 
  196. 13020 T$ = "INSTRUMENTS AND APPLICATIONS": GOSUB 31105:T$ = "----------- --- ------------": GOSUB 31105: VTAB 5
  197. 13030  PRINT "The Hubble Space Telescope uses"
  198. 13040  PRINT "five scientific instruments"
  199. 13042  PRINT "to study the light and": PRINT "other energy collected by": PRINT "the primary mirror."
  200. 13045  VTAB 13:T$ = "The Fine Guidance Sensors": GOSUB 31250:T$ = "may also be considered": GOSUB 31250:T$ = "scientific instruments.": GOSUB 31250
  201. 13050  VTAB 19:T$ = "The six instruments are...": GOSUB 31105: GOSUB 31025
  202. 13060  HOME : PRINT : PRINT :T$ = "INSTRUMENTS WHICH MEASURE": GOSUB 31105
  203. 13070 T$ = "LIGHT DIRECTION AND INTENSITY": GOSUB 31105: PRINT 
  204. 13080 T$ = "Fine Guidance Sensors (FGS)": GOSUB 31105
  205. 13090 T$ = "High Speed Photometer (HSP)": GOSUB 31105
  206. 13100  PRINT : PRINT :T$ = "CAMERAS WHICH PRODUCE IMAGES": GOSUB 31105: PRINT 
  207. 13110 T$ = "Wide Field/Planetary Camera (WFPC)": GOSUB 31105
  208. 13120 T$ = "Faint Object Camera (FOC)": GOSUB 31105
  209. 13130  PRINT : PRINT :T$ = "COLOR ANALYZERS": GOSUB 31105: PRINT 
  210. 13140 T$ = "High Resolution Spectrograph (HRS)": GOSUB 31105
  211. 13150 T$ = "Faint Object Spectrograph (FOS)": GOSUB 31105
  212. 13160  GOSUB 31025
  213. 13165  HGR :PIC$ = "MIRRORS2": GOSUB 32000
  214. 13200  VTAB 23: PRINT "HST uses a 2.4m (94in) primary mirror"
  215. 13210  PRINT "and small 30cm (11in) secondary mirror"
  216. 13220  PRINT "to guide light to the"
  217. 13225  PRINT "scientific instruments.";: GOSUB 31310
  218. 13230  HOME : VTAB 23
  219. 13240  PRINT "Incoming light energy from stellar"
  220. 13250  PRINT "objects strikes the primary mirror"
  221. 13260  PRINT "and is concentrated back to the"
  222. 13270  PRINT "secondary mirror.";
  223. 13280  GOSUB 31310
  224. 13290  HOME : VTAB 23
  225. 13300  PRINT "Light from the secondary mirror"
  226. 13303  PRINT "narrows to a small beam which"
  227. 13306  PRINT "comes to a focus behind the primary"
  228. 13310  PRINT "mirror at the focal plane.";: GOSUB 31310: HOME : VTAB 23
  229. 13315  PRINT "If you held a piece of paper at"
  230. 13318  PRINT "the focal plane, you would see"
  231. 13320  PRINT "an image of what the telescope"
  232. 13322  PRINT "is viewing.";: GOSUB 31310
  233. 13340  HOME : VTAB 23
  234. 13350  PRINT "The focused light reaches the focal"
  235. 13360  PRINT "plane by passing through a hole"
  236. 13370  PRINT "in the center of the "
  237. 13380  PRINT "primary mirror.";: GOSUB 31310
  238. 13400  HOME : VTAB 23: PRINT "Science instruments, located around"
  239. 13410  PRINT "the focal plane, analyze this light."
  240. 13420  PRINT "There are six instruments, including"
  241. 13430  PRINT "the Fine Guidance Sensors.";: GOSUB 31310
  242. 13435  GOSUB 31350: PRINT "The area which can be seen"
  243. 13444  PRINT "by the telescope is about as"
  244. 13446  PRINT "large as the full Moon.": GOSUB 31310
  245. 13450  HGR :PIC$ = "FOCAL.PLANE": GOSUB 32000
  246. 13455  HOME : VTAB 23
  247. 13460  PRINT "This is a diagram of the focal plane"
  248. 13470  PRINT "of the HST.  The plane is divided into"
  249. 13480  PRINT "8 sections, each for use by"
  250. 13490  PRINT "an instrument or Fine Guidance Sensor.";: GOSUB 31310
  251. 13500  HOME : VTAB 23
  252. 13510  PRINT "The total field of view is 28 minutes"
  253. 13520  PRINT "of arc.  You can see in the graphic"
  254. 13530  PRINT "how this field is shared; the Wide"
  255. 13540  PRINT "Field Camera has the best 'seat'.";: GOSUB 31310
  256. 13542  HOME : VTAB 23: PRINT "The area which can be seen"
  257. 13550  HOME : VTAB 23: PRINT "The Fine Guidance Sensors"
  258. 13560  PRINT "accurately locate reference stars"
  259. 13570  PRINT "so that the HST can be kept"
  260. 13580  PRINT "on target.";: GOSUB 31310
  261. 13600  HOME : PRINT "The FINE GUIDANCE SENSORS ..."
  262. 13610  VTAB 5: PRINT "...are the 'navigators' for the HST."
  263. 13620  PRINT : PRINT "...could lock on and hold the image"
  264. 13630  PRINT  TAB( 4)"of a dime over Washington, D.C."
  265. 13640  PRINT  TAB( 4)"from as far away as Boston."
  266. 13650  PRINT : PRINT "...will record star positions with 10"
  267. 13660  PRINT  TAB( 4)"times more accuracy than on Earth."
  268. 13670  PRINT : PRINT "...will record the positions of faint"
  269. 13680  PRINT  TAB( 4)"moons orbiting Jupiter, Saturn"
  270. 13690  PRINT  TAB( 4)"or other planets.": GOSUB 32100: GOSUB 31025
  271. 13700  GOSUB 32140: HOME : VTAB 23
  272. 13710  PRINT "The High Speed Photometer measures two"
  273. 13720  PRINT "features of stellar objects:"
  274. 13730  PRINT : PRINT "BRIGHTNESS and CHANGES in brightness.";: GOSUB 31310
  275. 13740  HOME : PRINT "The HIGH SPEED PHOTOMETER ..."
  276. 13750  VTAB 5: PRINT "...will study variable stars."
  277. 13760  PRINT : PRINT "...will observe."
  278. 13770  PRINT  TAB( 4)"interplanetary dust."
  279. 13780  PRINT : PRINT "...will detect very rapid changes": GOSUB 31250
  280. 13790  PRINT  TAB( 4)"in star brightness as short as"
  281. 13800  PRINT  TAB( 4)"1/100,000 of a second!:GOSUB 32100 :GOSUB 31025
  282. 13850  GOSUB 32140: GOSUB 31350
  283. 13860  PRINT "The WIDE FIELD/PLANETARY CAMERA uses"
  284. 13870  PRINT "a series of mirrors"
  285. 13880  PRINT "to guide light into sensors"
  286. 13890  PRINT "for wide field or detailed images.";: GOSUB 31310
  287. 13900  HOME : PRINT "The WIDE FIELD AND PLANETARY CAMERA ..."
  288. 14000  VTAB 5: PRINT "...will produce spectacular images of"
  289. 14010  PRINT  TAB( 4)"JUPITER, SATURN and other planets."
  290. 14020  PRINT : PRINT "...see 10 times more detail than": PRINT  TAB( 4)"Earthbound telescopes."
  291. 14030  PRINT : PRINT "...can separate a car's headlights": PRINT  TAB( 4)"at a distance of 2500 miles!"
  292. 14040  PRINT : PRINT "...will study the surface of Pluto."
  293. 14050  PRINT : PRINT "...will observe volcanoes on": PRINT  TAB( 4)"Jupiter's moon Io."
  294. 14060  PRINT : PRINT "...will search for planets around other    stars.": GOSUB 32100: GOSUB 31025
  295. 14200  GOSUB 32140
  296. 14210  GOSUB 31350
  297. 14220  PRINT "The Faint Object Camera uses mirrors,"
  298. 14230  PRINT "filters, and a small telescope"
  299. 14240  PRINT "to guide light to intensifiers"
  300. 14250  PRINT "which can strengthen faint light.";: GOSUB 31310
  301. 14270  HOME : PRINT "The FAINT OBJECT CAMERA..."
  302. 14280  VTAB 6: PRINT "...was developed and built by"
  303. 14290  PRINT  TAB( 4)"the European Space Agency (ESA)."
  304. 14300  PRINT : PRINT "...will detect stars too faint for the"
  305. 14310  PRINT  TAB( 4)"largest ground-based telescopes."
  306. 14320  PRINT : PRINT "...will search for planets"
  307. 14330  PRINT  TAB( 4)"outside our Solar System."
  308. 14340  GOSUB 32100
  309. 14350  GOSUB 31025
  310. 14355  GOSUB 32140
  311. 14360  GOSUB 31350
  312. 14365  PRINT "Both the HIGH RESOLUTION SPECTROGRAPH"
  313. 14370  PRINT "and the FAINT OBJECT SPECTROGRAPH split"
  314. 14375  PRINT "light into spectra that reveal the"
  315. 14380  PRINT "composition of stars.";
  316. 14385  GOSUB 31310
  317. 14390  HOME 
  318. 14395  PRINT "The HIGH RESOLUTION SPECTROGRAPH"
  319. 14400  VTAB 5: PRINT "...will be able to observe the"
  320. 14405  PRINT  TAB( 4)"ultraviolet light that ground"
  321. 14410  PRINT  TAB( 4)"telescopes can't detect."
  322. 14415  PRINT : PRINT "...will study the atmospheres of other"
  323. 14420  PRINT  TAB( 4)"planets in our Solar System."
  324. 14425  PRINT : PRINT "...will study the composition of stars."
  325. 14430  PRINT : PRINT "...will study exploding galaxies."
  326. 14435  GOSUB 32100
  327. 14440  GOSUB 31025
  328. 14445  HOME 
  329. 14450  PRINT "The FAINT OBJECT SPECTROGRAPH"
  330. 14455  VTAB 5: PRINT "...will gather the spectra of"
  331. 14460  PRINT  TAB( 4)"extremely faint stars and galaxies."
  332. 14465  PRINT : PRINT "...will study comets, such as Halley"
  333. 14470  PRINT  TAB( 4)"and others, when they are beyond"
  334. 14475  PRINT  TAB( 4)"the grasp of Earth-based telescopes."
  335. 14480  PRINT : PRINT "...will observe quasars and their"
  336. 14485  PRINT  TAB( 4)"mysterious 'jets'."
  337. 14490  GOSUB 31025
  338. 14495  GOSUB 32140
  339. 14500  GOSUB 31350
  340. 14505  PRINT "Each instrument will see"
  341. 14510  PRINT "with a clarity that is impossible to"
  342. 14515  PRINT "obtain beneath the veil of"
  343. 14520  PRINT "Earth's atmosphere.";
  344. 14525  GOSUB 31310
  345. 14530  GOSUB 32120
  346. 15999  RETURN 
  347. 19000 :
  348. 19005  REM   IMAGING
  349. 19010 :
  350. 19015  HOME 
  351. 19020  HGR :PIC$ = "I.1": GOSUB 32000
  352. 19030  GOSUB 31350
  353. 19040  PRINT "Light concentrated by the optical"
  354. 19050  PRINT "system of the Optical Telescope"
  355. 19060  PRINT "Assembly passes through a 60cm (24 in.)"
  356. 19070  PRINT "opening in the primary mirror.";
  357. 19080  GOSUB 31310
  358. 19090  GOSUB 31350
  359. 19100  PRINT "A pickoff mirror centered in the light"
  360. 19110  PRINT "path behind the primary mirror directs"
  361. 19120  PRINT "the light through a shutter and one of"
  362. 19130  PRINT "48 possible filters.";
  363. 19140  GOSUB 31310
  364. 19150  GOSUB 31350
  365. 19160  PRINT "The light then strikes a four-faced"
  366. 19170  PRINT "reflective pyramid which breaks the"
  367. 19180  PRINT "beam into 4 parts (quadrants).";
  368. 19190  GOSUB 31310
  369. 19200  GOSUB 31350
  370. 19210  PRINT "The light in each quadrant is then "
  371. 19220  PRINT "concentrated by a small reflecting "
  372. 19230  PRINT "telescope and focused onto a sensor "
  373. 19240  PRINT "called a Charge Coupled Device (CCD).";
  374. 19250  GOSUB 31310
  375. 19280  HOME :PIC$ = "CCD.1": GOSUB 32000
  376. 19290  GOSUB 31350
  377. 19300  PRINT "Each CCD is a flat plate with 640,000"
  378. 19310  PRINT "separate light sensitive points."
  379. 19320  PRINT "The points are arranged in 800 lines"
  380. 19330  PRINT "with 800 points per line.";
  381. 19340  GOSUB 31310
  382. 19350  GOSUB 31350
  383. 19370  PRINT "The CCD acts as an 'electronic film'."
  384. 19380  PRINT "The intensity of light striking each"
  385. 19390  PRINT "point can be read electronically and"
  386. 19400  PRINT "expressed as a number."
  387. 19410  GOSUB 31310
  388. 19420  GOSUB 31350
  389. 19430  PRINT "The numbers are transmitted to a"
  390. 19440  PRINT "computer where an image processor"
  391. 19450  PRINT "'paints' each of the points with"
  392. 19460  PRINT "the proper intensity of light.";
  393. 19470  GOSUB 31310
  394. 19480  HGR :PIC$ = "J.1": GOSUB 32000
  395. 19490  GOSUB 31350
  396. 19500  PRINT "Four CCD's are used to construct each "
  397. 19510  PRINT "image, thus there is a total of "
  398. 19520  PRINT "2,560,000 picture elements (pixels)"
  399. 19530  PRINT "( 4 x 640,000 ).";
  400. 19550  GOSUB 31310
  401. 19560  GOSUB 31350
  402. 19570  PRINT "Color images are made by combining "
  403. 19580  PRINT "data gained by a series of exposures"
  404. 19590  PRINT "through proper filters."
  405. 19600  GOSUB 31310
  406. 19610  GOSUB 31350
  407. 19620  PRINT "Images of planets as distant as Jupiter"
  408. 19630  PRINT "and Saturn are expected to be equal to"
  409. 19640  PRINT "most images made by the Voyager probes"
  410. 19650  PRINT "which traveled near these planets.";
  411. 19660  GOSUB 31310
  412. 21999  RETURN 
  413. 22000 :
  414. 22005  REM   COMMUNICATIONS
  415. 22010 :
  416. 22015  HOME 
  417. 22020  PRINT :T$ = "COMMUNICATIONS": GOSUB 31105
  418. 22050 T$ = "--------------": GOSUB 31105
  419. 22060  VTAB 6
  420. 22070  PRINT "Communication between scientists and"
  421. 22080  PRINT "engineers on Earth and the"
  422. 22090  PRINT "computers which control the HST"
  423. 22100  PRINT "is essential to the success of the"
  424. 22110  PRINT "Space Telescope mission."
  425. 22120  PRINT : PRINT :T$ = "Without communication, scientists": GOSUB 31250
  426. 22130 T$ = "on the ground would be unable": GOSUB 31250
  427. 22140 T$ = "to direct the observations of the": GOSUB 31250
  428. 22150 T$ = "HST and the HST would be unable to": GOSUB 31250
  429. 22160 T$ = "report its findings.": GOSUB 31250
  430. 22165  GOSUB 31025
  431. 22170  HOME : VTAB 5:T$ = "Information collected by HST": GOSUB 31105
  432. 22190 T$ = "is binary computer data.": GOSUB 31105
  433. 22200  VTAB 8:T$ = "Computer data represents information": GOSUB 31105
  434. 22210 T$ = "by a sequence of zeros and ones.": GOSUB 31105
  435. 22220  VTAB 11:T$ = "These zeros and ones, called bits,": GOSUB 31105
  436. 22230 T$ = "are transmitted to antennas on Earth": GOSUB 31105
  437. 22235 T$ = "using radio signals.": GOSUB 31105
  438. 22240  VTAB 15:T$ = "Computers process these data": GOSUB 31105
  439. 22245 T$ = "into useful information.": GOSUB 31105: GOSUB 31025
  440. 22250  HGR :PIC$ = "DT": GOSUB 32000:
  441. 22260  HOME : VTAB 23
  442. 22270  PRINT "Data are sent from the Space Telescope"
  443. 22280  PRINT "to a TDRS satellite.  From there the"
  444. 22290  PRINT "data are transmitted to Earth."
  445. 22300  GOSUB 31310
  446. 22330  HOME : VTAB 23
  447. 22340  PRINT "The Goddard Space Flight Center"
  448. 22350  PRINT "receives all data from the HST."
  449. 22360  PRINT "Personnel at Goddard relay the science"
  450. 22370  PRINT "data to the HST Science Institute.";: GOSUB 31310
  451. 22380  HOME : VTAB 23
  452. 22390  PRINT "Usually, the HST will transmit 4,000"
  453. 22400  PRINT "bits of data each second but it is"
  454. 22410  PRINT "capable of sending 1,000,000"
  455. 22420  PRINT "bits per second.";: GOSUB 31310
  456. 22435  HOME : VTAB 23
  457. 22440  PRINT "At this rate, about"
  458. 22450  PRINT "70 images from the Wide Field"
  459. 22460  PRINT "Camera can be sent each day.": GOSUB 31310
  460. 22500  GOSUB 31350
  461. 22510  PRINT "Tape data storage is available on"
  462. 22520  PRINT "the HST for delayed transmission to"
  463. 22530  PRINT "Earth.  The data storage system has"
  464. 22540  PRINT "a capacity of over 3 billion bits.";: GOSUB 31310
  465. 22600  GOSUB 31350
  466. 22610  PRINT "The HST communication system will"
  467. 22620  PRINT "even allow interactive control by"
  468. 22630  PRINT "astronomers during critical "
  469. 22640  PRINT "observation periods.";: GOSUB 31310
  470. 24999  RETURN 
  471. 31000  REM  
  472. 31005  REM   USEFUL ROUTINES
  473. 31010  REM  CONTROL LINES
  474. 31020  VTAB 22: HTAB 4: INVERSE : PRINT "DOWNLOADED FROM NASA BY L.MCEWEN"
  475. 31021 DL =  PEEK(33181): IF DL < >68  THEN 45000
  476. 31022 MN =  PEEK(33207) + PEEK(33212): IF MN < >155  THEN 45020
  477. 31025  VTAB 24: HTAB 7: PRINT "PRESS <RETURN> TO PROCEED";: POKE  -16368,0: GET J$: NORMAL : IF J$ = "M"  OR J$ = "m" GOTO 4200
  478. 31026  IF J$ < > CHR$(13) GOTO 31025
  479. 31030  HOME 
  480. 31031  RETURN 
  481. 31040 :
  482. 31050 :
  483. 31051  REM   Control Line #2
  484. 31052  POKE 34,0: VTAB 22: HTAB 4: INVERSE : VTAB 24: HTAB 7: PRINT "PRESS <RETURN> TO PROCEED.";: POKE  -16368,0: GET J$: NORMAL 
  485. 31053  IF J$ = "M"  OR J$ = "m"  THEN  GOTO 4200
  486. 31054  IF J$ < > CHR$(13) GOTO 31052
  487. 31055  POKE 34,6: RETURN 
  488. 31099 :
  489. 31100  REM    CENTERING
  490. 31105 TA = (40 - LEN(T$))/2: PRINT  TAB( TA);T$: RETURN 
  491. 31200 :
  492. 31249  REM    R. JUSTIFY
  493. 31250  HTAB 40 - LEN(T$) -1: PRINT T$: RETURN 
  494. 31299 :
  495. 31300  REM   GRAPHICS USER CONTROL LINE
  496. 31310  VTAB 24: HTAB 39: PRINT "M";: VTAB 24: HTAB 39: POKE  -16368,0: GET J$: IF J$ = "M"  OR J$ = "m" GOTO 4200
  497. 31311  IF J$ < > CHR$(13) GOTO 31310
  498. 31320  HOME : RETURN 
  499. 31350 :
  500. 31355  REM   Position cursor
  501. 31360  HOME : VTAB 23: RETURN 
  502. 31400 :
  503. 32000 :
  504. 32010  REM   LOAD PICTURE
  505. 32020  PRINT D$;"BLOAD ";PIC$;".PAC,A2304"
  506. 32025  POKE 0,0: POKE 1,09: CALL 2048
  507. 32030  RETURN 
  508. 32050 :
  509. 32100 :
  510. 32110  REM   Text page 1
  511. 32120  POKE  -16303,0: POKE  -16300,0: RETURN 
  512. 32130 :
  513. 32135  REM   HiRes page 1 mixed
  514. 32140  POKE  -16297,0: POKE  -16304,0: POKE  -16300,0: POKE  -16301,0: RETURN 
  515. 32200 :
  516. 32210  REM   Termination if incorrect load occurred
  517. 32220 :
  518. 32230 LA =  PEEK(104):SA =  PEEK(16384):
  519. 32240  IF LA = 64  AND SA = 0  THEN  GOTO 32290
  520. 32250 D$ =  CHR$(4): POKE 103,1: POKE 104,64: POKE 16384,0
  521. 32255  PRINT  CHR$(4);"RUN HST.INTRO"
  522. 32290  RETURN 
  523. 40000 :
  524. 40010  REM   DIRECTIONS
  525. 40020  TEXT : HOME :T$ = "DIRECTIONS": GOSUB 31100:T$ = "----------": GOSUB 31100
  526. 40030  VTAB 4: PRINT "* This program is an introduction to"
  527. 40040  PRINT "  the Hubble Space Telescope."
  528. 40050  PRINT : PRINT "* It is suggested that you study"
  529. 40060  PRINT "  sections 1 through 5 on"
  530. 40070  PRINT "  the main menu in sequence, but you"
  531. 40080  PRINT "  can select topics in any order."
  532. 40090  PRINT : PRINT "* Most of the time you will use the"
  533. 40100  PRINT "  <RETURN> key to control the flow"
  534. 40110  PRINT "  of information.  Study each screen"
  535. 40120  PRINT "  as long as you wish, then press"
  536. 40130  PRINT "  <RETURN> to proceed."
  537. 40140  PRINT : PRINT "* You may also press 'M' to"
  538. 40150  PRINT "  return to the menu."
  539. 40160  PRINT "  An 'M' in the lower, right corner"
  540. 40170  PRINT "  of the screen reminds you of"
  541. 40180  PRINT "  this option.": GOSUB 31025
  542. 40200  HOME 
  543. 40210  VTAB 3:T$ = "Enjoy the": GOSUB 31105: PRINT :T$ = "INTRODUCTION TO THE": GOSUB 31105
  544. 40220  PRINT :T$ = "HUBBLE SPACE TELESCOPE": GOSUB 31105
  545. 40250  GOSUB 31025
  546. 40300  RETURN 
  547. 44000  NORMAL : TEXT : HOME : VTAB 5: PRINT "Enter RUN STARTUP to view again.": VTAB 15
  548. 44010  POKE 103,1: POKE 104,8: POKE 2048,0
  549. 44020  REM   PRINT CHR$ (4);"BYE"
  550. 44030  END 
  551. 45000 :
  552. 45010  REM  Another way to end
  553. 45020  POKE 50,255: TEXT : HOME 
  554. 45030  POKE 103,1: POKE 104,8: POKE 2048,0: END 
  555. 46000 :
  556. 46010  REM   DOS Error
  557. 46020 :
  558. 46030  GOSUB 32120: POKE 33,33: GOTO 28000